home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / AmigaTalk / prelude / False.p < prev    next >
Text File  |  2002-10-27  |  677b  |  28 lines
  1. pTempVar <- <primitive 110 5 >
  2. <primitive 112 pTempVar 1  " not " \
  3.   #( #[ 16r5B 16rF3 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " ifFalse: " \
  7.   #( #[ 16r21 16rA5 16rF3 16rF5] \
  8.     #(  )) >
  9.  
  10. <primitive 112 pTempVar 3  " ifTrue: " \
  11.   #( #[ 16r5D 16rF3 16rF5] \
  12.     #(  )) >
  13.  
  14. <primitive 112 pTempVar 4  " ifFalse:ifTrue: " \
  15.   #( #[ 16r21 16rA5 16rF3 16rF5] \
  16.     #(  )) >
  17.  
  18. <primitive 112 pTempVar 5  " ifTrue:ifFalse: " \
  19.   #( #[ 16r22 16rA5 16rF3 16rF5] \
  20.     #(  )) >
  21.  
  22. <primitive 98 #False \
  23.   <primitive 97 #False #Boolean #AmigaTalk:General/False.st \
  24.    #(  ) \
  25.    #( #not #ifFalse: #ifTrue: #ifFalse:ifTrue: #ifTrue:ifFalse:  ) \
  26.   pTempVar 3 2 > #ordinary >
  27.  
  28.